home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / CD-ROM Tutorial.cpt / CD-ROM Tutorial / card_53502.txt < prev    next >
Text File  |  1990-04-04  |  5KB  |  229 lines
  1. -- card: 53502 from stack: in
  2. -- bmap block id: 53609
  3. -- flags: 0000
  4. -- background id: 29299
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   delete line 1 of card field "ques"
  9.   hide card field "retell"
  10.   hide card field "looking"
  11.   show card field "tell"
  12.   set lockScreen to false
  13.   set userLevel to 2
  14.   click at 68,80
  15. end openCard
  16. on mouseUp
  17.   delete line 1 of card field "ques"
  18.   click at 68,80
  19. end mouseUp
  20.  
  21.  
  22.  
  23. -- part 1 (field)
  24. -- low flags: 00
  25. -- high flags: 2004
  26. -- rect: left=104 top=103 right=148 bottom=303
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 0
  30. -- font id: 21
  31. -- text size: 12
  32. -- style flags: 256
  33. -- line height: 16
  34. -- part name: tell
  35.  
  36.  
  37. -- part 2 (field)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=63 top=74 right=91 bottom=149
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 21
  45. -- text size: 12
  46. -- style flags: 256
  47. -- line height: 16
  48. -- part name: ques
  49.  
  50.  
  51. -- part 3 (button)
  52. -- low flags: 00
  53. -- high flags: 2000
  54. -- rect: left=360 top=60 right=79 bottom=455
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: New Button
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   if line 1 of card field ques is "ozone" then
  66.     set userLevel to 1
  67.     show card field "looking"
  68.     wait 2 seconds
  69.     go to next card
  70.   else
  71.     delete line 1 of card field ques
  72.     hide card field "tell"
  73.     show card field "retell"
  74.   end if
  75.   click at 68,80
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 4 (field)
  81. -- low flags: 80
  82. -- high flags: 2004
  83. -- rect: left=90 top=129 right=176 bottom=305
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 21
  88. -- text size: 14
  89. -- style flags: 256
  90. -- line height: 18
  91. -- part name: retell
  92.  
  93.  
  94. -- part 5 (button)
  95. -- low flags: 00
  96. -- high flags: 2000
  97. -- rect: left=360 top=90 right=110 bottom=455
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: New Button
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   delete line 1 of card field "ques"
  109.   click at 68,80
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 6 (button)
  115. -- low flags: 00
  116. -- high flags: 2000
  117. -- rect: left=360 top=150 right=170 bottom=455
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: New Button
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   delete line 1 of card field "ques"
  129.   click at 68,80
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 8 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=360 top=180 right=200 bottom=455
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: New Button
  146. ----- HyperTalk script -----
  147.  
  148. on mouseUp
  149.   answer "Sorry, you cannot print in the simulation." with "OK"
  150.   delete line 1 of card field "ques"
  151.   click at 68,80
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 9 (button)
  157. -- low flags: 00
  158. -- high flags: 2000
  159. -- rect: left=360 top=120 right=140 bottom=455
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: New Button
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   answer "Word List is not available in the simulation." with "OK"
  171.   delete line 1 of card field "ques"
  172.   click at 68,80
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 11 (button)
  178. -- low flags: 00
  179. -- high flags: 2000
  180. -- rect: left=360 top=220 right=240 bottom=455
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: help
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   answer "Help is not available in the Simulation." with "OK"
  192.   delete line 1 of card field "ques"
  193.   click at 68,80
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 12 (field)
  199. -- low flags: 00
  200. -- high flags: 2004
  201. -- rect: left=53 top=93 right=153 bottom=458
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 3
  206. -- text size: 14
  207. -- style flags: 256
  208. -- line height: 18
  209. -- part name: looking
  210.  
  211.  
  212. -- part contents for card part 1
  213. ----- text -----
  214. Type the word OZONE and
  215. Click on BEGIN SEARCH.
  216.  
  217. -- part contents for card part 4
  218. ----- text -----
  219. Type the word "ozone" and
  220. Click on "Begin Search"
  221.  
  222. -- part contents for card part 12
  223. ----- text -----
  224. Looking for
  225. ozone
  226.  
  227. -- part contents for card part 2
  228. ----- text -----
  229. OZONE